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Mary of the existing data base management systems have 
been develoved for large applications such as biz business. 
Ever 5ther arrlications such as small businesses can also 
EID rom the raragerial information wLich car te vrovided 
Ec oputer lata base. This thesis develoos a stand-alone 
data base manasement system “sing a microcomputer with flocpy 


Ian iliary storaze and tne UC55 Pascal software заскасе. 
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This system has tn? capability to create, update, delete and 
Et o i"*^rraticr. and to respond to user inquiries. Because 
Be limited storaze cavecity ani relatively slow access 
ЕШ о ¿lovoy diszs, the system will only satisfy small 
ca tinas. Frwever, the advent of comsatitle hari disz 
memes: or microcomputers will enable the system tc be used 


ЖЕСІР ticantly larser apolicatio”s. 
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I. INTRODUCTION 


Mmeemient be said that this is the data base era in 
computer technology. Data base processing has grown in 
Significance among computer scientists and also amone 
manasers of organizations. The capacities of on-lire data 
Mees have erown rapidly. As capacities zo up, the cost ver 
bit cf storage comes down. This situation motivates data base 
EEUEners to contirue their efforts to obtain tetter data 


base systems. 


in imoortart consideration in date bese design is to 


(D 


ГӘ сага in such away that it can 0 used for a wide 
Variety of apolications. Bv doina so, the date can be changed 
Quickly ani easily. To achieve the flexitility of data usaze 
Maat is essential in most commercial situations, two aspects 
data base design are importart. First, the data should te 
independent of tre programs which „se it, so that it can 02 
modified without the programs being changed (дата 
irdevendence). Second, it should be possible to interrogate 
and search the data base without the lengthy operation of 
 ІГІпгс programs ir conventioral vorozramminz lanzuazes. For 
this purpose. data base nuerv languazes are used. If the 


meructure of the data base is independent of the program that 








ЕЙЕЕБЕ5 1%. then it Is possible tn develop ап Enelish-like, 


 ГӘсетпга!і, ausry language. The relational model supoorts 


ceta independerce better than" other models, anrd therefore, is 


«t 


ne most a 


Хо 


ртосгјађе атопг the 2х1< 1 пе дата base models for 


development nf a qnery language. 


EN: very ditficuilt to desien a lata base which performs 
Io Dt tiral fashion. There ar^ many lifferent ways in which 
Maracas Ce structured and each has its own adventazes and 
disadvartages. Different users have different requirements. 
ШИ паглју possible to satisfy all of tne users with one 
type of data organization. That is why trade-offs are 
freouently made. ?ramples include traie-offs between storage 
and те Pz at von. and between response time and 
Ae itv 02 lata structure. 


The nata base system develoned in this thesis strives for 


(0 


щото ста! ап опега 1 пе соз 5. It uses a microcomputer as 


the па! г ^отриѓег алі #1 орру disxs as secondery storage. 


Тһе widely-available UCSD Pascal software is compatible 
ВИНА most micrecomputers using the C?/M operating system. The 
Software inclu3es such features аз а 5осгееп-огјелђеј text 
editor, an easy to vse file system, and a library manager. 
EB system supports interactive nrograms a"3 allcws 8 program 


Пе рат!тісісгпей іліс separately compilatle units. For these 





am bad 


reasors tre UCSD Pascal software vacraze was chosen as 
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Gant 
кч 


шини ит пе softwere support system ¡zef.1l 
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E wena owls Stored in the data base in the form of 
4 


records. herce, а вресігі оғоггап was developed t^ be used to 


create a new deta base. 


The Заа base system storage егете 11525 the 
ion technique, This technioue consists cf storine the 


data separately from the relationships. The advantages о? 


О 


Пи аоогтасл are faster data retrieval, more сопојеђе data 


iniependence end economical use of storage [Ref.2]. More 


* 


eres can be seen in chapter 6. 


ja) 


The data base manasenent system developed ir this thesis 


EN тігізіпге version of data base maregemert systems 


rA 


tyoically availatle on larger systems. 





ІІ. RACYIPOUND 


РЕС 25555171 OF A DAT! BASE MANAGEMENT SYSTEMS 


Computer-based systems have become important tools for 
n cvre tively and accurate information. A date base 
ЕЕЕ is erpec*ed to vrovide its user with the required 
mau ation within a specified time. “ost of  todayís data 
bese management systems, were developed to ranase larse data 


уњ; 
м 


bases. For small systems, these 3ata base management systems 


are toc expensive to implerert. 


Organizations wotan the omnes Lan Armed Forces 
represent erarples nf creariratirns which neel smaller data 
tase management Systems with reasonable осега пе ага 
Talntenrarce costs, There are rany lower level  oreanizatiors 
which NU to отоуійе fest  iaformation to tne higher 


ђе eauipred МІН Тоса 1 


ct 
O 


headanarters. They need 
Mempucerized systems which can provide ‘fast and accurate 
information. Py maintainine data in a data base systen, 


meemrate and uo-to-date informatior” can oe maintained. 
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In general, the term “nicrocomouter can be defined 
as a stored program Pom MT Comprising memory and 
ШИЕ ОШ ОП circuits together with а microorccessor CPU 
Meee. Microcomouters have attracted many peoole tecause of 


t 


2% 


(л 


сетега 1 advar*tazes суег Татсет computers. заг 


Е 


Пос отоц+ сап Der, Use ШОР с wide ransa of specific 
Саі опѕ. Second, microcomputers are vowerful, reliable, 
and irerpe sive. Trev can overate effectively in environmerts 
where cer computers vou dE a Most fo hom Ss и 


GeeemocOmotvte rs orerate at roon temperature and require no 


Seed) ait conditionireg or Dower sumtolies. 


2. Perspective 01 Microcomputers 

The major disadvantazes of existing date base systems 
Eu initial cost and hiz} operating costs. The use of a 
Erocomputer system should be considered as an alternative, 


издига а data base system of smaller size, but with lower 


Meeratin= costs. ?ecent develooments 87 mca o oc ONU 
technology have already provided them with the hardware 
Exsenilities to retrieve arc update it foie ОТ. For 


EMcroconputers which have no suck hardware the capabilities 





be implemented ir software, 


development of а data base = 


Mc ske ere currently the pri" 


devices used with microcomputer 


nu а! ог is similar to hari disk 


AODA 


М м e 


capacities anf access sop s are siz 


mse of a пт сгосотри 


WwW 2. 


Ер 


[а] 


Ma cener+ syster an h-c 


m 
72227 


and UCSD Pascal as Supperting softwa 


Semon) PASC! 


the ща 


software inciuųudes 


screer-nrijrerted tert editrr, a 


a library manager. Tka sys 


шгороегетпъ. 


т 


Ша 


ee UGSP Pascal compiler і 


+ 


Tt 


ver, 


[9 


descent como 


ес 1“ cr "ће Pascal 


compile-tire errors осстг, 


Without 


тегет 


gorerates 


ш е capabilities 


ОИ ү DOSSI Cls, 


ciple anxillarvy storage 


systems. Their paysical 


S, however, their storage 


проса ју less. 


a stand-alore data base 


niente апегу L2ensiace. 


re, seems feasible. 


Шери пе Sot (vere сшопог 


suer features as 


useful file system, апа 


tem supports interactive 


recursive 


O 


s a e-pass 


code "files ПО 


machine. when 


ti user may optionally 





um 4disectly to the screen»-nrienrte4d editor with the 


IS LM E EU 
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ШЕГЕСІ at ine position in the file where the error wes 


Segment Procedure allows the user to vartition a large 
program into several segmerts. Each segment is compiled 
Separately. The Linker oroeram is then used to ling the 
Ке те =  сегтегће реет to produce one large cede 


ml 


iD 


. This procedure enables lerze programs to Фе run 


im the relatively smal! rair memory. 


The SETUP program enables the users to reconfigure the 
Mime) Pascal oneratire svstem to suit his cr ker 
сошартел or taste. This is necessary when the system 
Mos ed witn Jifferent terminels or different machine 


p 


Gn 


Mot lzurations, 577 nables пе user t5 mexe these 


гр 


charges anicrly ard easily. 
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Tes 


ПА РООССТТОМ 


The term data hase is still not accepted with a 
standar? mearirr. However it is to some extent accented as 
BENED ains a hore sannisticated concent than tne older term 
“file”. Confusion has arise over the meaning of the data 
tase. Users tend to look unon e datatass as the azzrecate of 


Seeger ron which trey can make decisiors. 


meme о | | бсм1г= definition af a data base is Aue to 


[Ref.2]. 


"A Aata base is a collection” of interrelated deta store? 
ШЕсІтТтет with tre mininmvr redundarcy to serve one or move 
Миса С1ол5 in an optimal fashion. The data is stored 50 


leet they are independent of programs which must use the 


ha 


Шаба. A common and controlled approach is used in addire 
ЕМ | бата and in modifying and retrieving existing data 


within the data tase. 


ШЕТ orocesscrs have tried to develop data bases without 


meelizinz the meenitude of the task. In reality, most of tne 


Mia ys data bases serve a limited set of applications. 





ШИФЕсігпіггс а Лађа Базе system there are many facts that 
ООШ De Consitere?. The following аге among the primary 


\ 


пе пуво 0: data base organizations. 


m Irt Should make  apolications developmert easier, 





eneaper, faster, and more flexitle. 
2. The data should have multiple uses. 
| 5. Data irdeperdterce, 
EEUU стаг? Ту. “ase of urderstandine what data is available 
ГӘ (Пе users. 
Б. Flexible usaze. Data can be used іп flexible ways 
n hn different access paths. 
Б -ролгалпеоиѕ requests for data can te haniled easily 
De eas of a high level. query larzuaze or report 
zeneratinn lanzuaze. 
7. Change is easy. 
Ши Том сос. 
EN ссигасу апб сола 15 зепсу. 


HA. Privacy 


Cf cenrse we carrot ervect all c? these objectives will 


Ed 


a 


4: 


Бе разпей in tre ootimum fastrio” at the same time. Тере 


O 


on the user's reguiremerts, “һе data Базе 15 designed t 


achieve their vrirary objectives. The primary objective of 





this 


Бр са 1 015 


thesis іс ta 


Festi ova data пасе стефат for small 


Peel OW ТЕУТА ара opera іп? cocts. 


EN SA SASE SYSTEM COMPONENTS 


^ jata base system involves three componerts: 


NUS er cr applicatior prosrars 
НИНА пе lata tase systew 'rroerams for accessing tne data 
base.) 
ne data hase itself 
Meer Drosrams are oroerams- through which the users 


EN oct directly wit” the systen, 
in а ацегу lareuaze. 
syStem via a lanzueze such es 
system 


Ma base in accordance with the user's 


С Baur: 


nor the 


onship betweer distinct data items or data zroups. 


These programs are written 


Spplications programs interact with the 


OUSCO orm РЕЛІ. “Тө Затаб газе 


moma sete. computer тгас гате, that 3perates onthe 


commands. 


foo” STRUCTURE 


ese. discussior. plata structurins. may be 


ct 


as the comuuterized representation of he 


ine 


...- 


Le 








Binz is an example. For a ziven school there are tw 


O 


EIU -:- с: iafarmatira, These sets are student data and 
ТЕО data. See fissure [2-1!. Tete on each student is 
Nes as a record and tre collection of these records 
becores the stulent file. Lixewise records on each course are 
ИИ ФЕ into the course file. These files are consiiered as 
the prinmitive date heses. Ta obtain the names of students 
 15ус been scheduiled into classes, the relatinnskios 
betweer date eroups of these two files are reovired. Figure 
(2-21. The schrri data bese becomes тоге сстојех as 
ШЕ 1008! record types are added. "or examole, a teacher 
file is added. The data base now should have relationstrips 
ИИ ЕЕЕ the teachers and students and between tne teachers 


ande the c^un"ses. 


Eur bjne from the definition above, the Sfocess 57 
КООШ Т л; а date base is a rears nf maévdving the different 


3 


ЙӘ (угес. Тліс таррјаг can be done using physical 111хаге 
ME. inversior. Physical linkase implies that addresses ní 
Na ted records ere stored within records themselves so that 
Miukaze "paths exist within and amore physical files. 
Inversion is the use nf an ‘inverted file’ which contains the 
locaticrs nf the data bese records [Fef.4]. 4n inverted file 
can be НЕН qc 2 ГС 0078105 A Pen ta ty 


Ша чета associated with the values of certain attributes. 


т 
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НИЧЕА ICN? DATA BASF APOPOQACE 


In totay’s world, users ‘i.e managers) are more concerned 
LU he information cortent of their data rather than its 
representation. Managers teni not to be bothered by bits, 
Boerse, arrays., lists, etc., whic" may be vsed to represent 


information. Pather, they desire “independence” fram 


me per ation details. Ir tre relatioral model, information 


(D 
> 
л 
ıD 
T 
3 
«Ф 
iD 
У 
++ 
Шш 
O 
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is represerted at the by data values only. 
User reauests become free of агу dependerce on interral 
meemesettatior ard herce тау be framed іл а high-level 
non-proce2ural language [Ref.5’. At the same time the system 
END Ee free *o59 choose any nhysircal structure for storage о? 
ШО ала to optimize thae erecution of given reauests. These 
HNEEcteristics are imvortart for the use of a microcomputer 
НӘ а гаі" соприТтет due te limited size of storage and 
Si ress of access inherert with EODD шеге Data 
indeperdercv also enables the development c? Exslish-lixe 


non-vrocedural auery lanzuases. 
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A AS RTQUIRTMENTS 


Bus system developed in this thesis uses an ALTOS 
microcomputer ‘Z2-©A plus 64% memory’ with two single-density 
ШЕШ distr drives and the UCSD Pascal software system. Fach 
ШИ РУ 1155 Пас а сапгсій?у оҒ 256Е bytes. The 64K memory size 
Мишо сегеј to be adecuate for storing the орегабілг 
System, programs beine erecnuted and for working space. 
Certainly, the larzer the size of the memory, the more 
suitable it becomes for the data base systen inplemertation. 
More sienificant limitation is in the floppy disk 
@emeeity. 512* bytes of storage is too small to hold the data 
base and the data base system огогтат5. However, additional 
ANDY disxs, risher densities, an? eventually, hard diss 


will greatly enhance the storase capacity. 


The US SD Pascal system is compatible with most 
micrecomputers using the CP/M operating system. CP/M is the 
operating system used Por Intel 2254 and даа 
EEroprocessors. C?/M provides a general environment for 
progrem eenstructior, storage, and editina, eloag with 
Meseemtly ani program check-out facilities. In general, it 


Mets at least 16K nenory with up to four disk drives. 


zu 








However, Dizital Эеѕеагсһ kas recently developed CP/M version 
m en сеч пгот | Зе data mavazement for up to 122 mesabrtes 


ега). 


Peo ta Se SUPPORT 


E Introduction 


а цар Ca жынын ee ee e A A «ышы» eS mm 


To support the implementation of a data base system, 
the system needs an overatins system, a data base creator, 


Ie capabilities tn er 


(D 


ате elete ard irsert, pda te. 
and retrieve data. The querv larguage is used bv the user to 
meee: with the пача base. A help command is necessary to 
assist the users in »btairirz information about the logical 


structure o? the data tase and to provide on-line information 


on how to use the data base system. 


pee ooerating System 


The operating system was provided by UCSD Pascal. It 
ШИ теппігей to support the file structure that will allow 
amic allocation of file suace, yet ermit both seauential 
EM random file access. The UCSD Pascal overating system can 


ШОШ т the normal internal operations necessary for the 


Geeerocomruter system to interface with standard peripheral 
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A data hase management system is a set of тгоғгат5 
thet operate on the data base in accordance with the user's 
Пе. ІС has two major functions, i.e., data organization 


and data access. 


After the user issues a request usine the query 
largvage, the data base marassment system intercepts the 
nost. ard irterprets it. Finally, it performs the 
operations on the data tase. The data base manasenent system 
ШЕ oped in this thesis has three major subdvrograms: a 
parser, an interpreter, and a data base creator. The parser 
ЕНЕ (255 the syntax of the commands received from the 
terminal using the top-down parsine method. If the command is 
страст тсај1у eorreet 12 ІС сосјен по а table. The 
NN preter then takes the codes from the table. interprets 
them, ani then erecutes the command. If the syntax is rot 
correct, an error message is displayed at the terminal. The 


user can then repeat the request with the correct command. 
The data base creator is used to create a new data 
Meee. or add data to an existing data base from the terminal. 


ШЕР (ву! ейітсгст developed ov UCSD Pascal cannot be used to 
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(и Зара files for the data base. This is because the 
required files are organize? as searences of encoded record 
Биш ге<. Іле UCSD Pascal text editor can only read and 
write text files 'seavences of characters). To create the 
data base, a pregram was 1leveloped which reads a record from 


the terminal and writes it to a file of the desired туге. 


ОШ тегу Largvaze 
(Шету language 15 ar Enelish-1lixe, self-contained 
data language. A self-contained data language is a complete 
»rogramming lanevare for beth obtainine and manivulatirz data 
from a deta base, Tre query lansguaee used in the developed 
system, is а SFOUFL-lixe auery lanavage [7ef.7,28,91. It was 
developed to be able to retrieve data, delete data, modify 


existing data, and add new data. 


832 
(D 


trieve operations are represented syntactically as 
STLECT-FROM-YWFTTRF blocks. For example, a command to get 
suppliers nrurters and status of the suppliers in Paris would 


look lixe 
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ИСЕ обвала is erecuted by findinz and combinine into a set 
e rows where CITY = “PARIS”, Then, uside tre vertical 
Пише For columns S* and STATUS on this set , the requested 
ШИЕ (ОЛ сап be obtained. 

Deletirs data, той 1 Ру! пс existing data, and adding new 
data to the data base are the storage operations. The DELETE 
 Шапп 15 used to remove records from the data base, the 
UPDATE command is used for nodifiyne existing data, ani the 


ПАГ command is used for adding new records to the data 


base. 
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жы.» «ғы» =т= «мол» pesa dec UM 


The helo command is used to obtain information about 
mmemexisting data base, i.e., its logical structure, the data 
type ani слабия of each attri ute (retrieval ОТ 
nor-retrieval) etc. It also provides on-line information on 


how to use the data bese system. 


~ 
Сл 





MeL EM СРЕЗАТТСМ5 


After initialization, the data base system promots the 


user with the following line. 


Commani: Clreate, Flelp,. X(ecute 


Using these cnmrands, the user is able to create a new data 
EXC to obtain informvation about the existine data base, ог 
to retrieve and подафе the eristire data base. The details 
concernirs each command are vrovijded in the user’s manual 


шларепа 1 х С). 
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ШРМ STOAT STRUCTU??? 
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EN TRODUCTION 


A data base management system is an effective managerial 
ШИ! ОПІу І? its response time is significantly better thar 


existing manual systems. 


Та desier suck a ‘data hase management svstem using a 
Ш госотрифег as the main computer, the arrangement of the 
on-line auxiliary storage structure must also be considered. 
Currently, flovopy disvs are the primary auriliary storage 
Mes *ound wiíth microcomputers. Topefuily, the liritatiors 
on storage capacitv ard access time inherent in floppy disks 


РЕЙ ре overcome in t^» futrre by Багда disz systems. The 


auriliary stnraze structure Hevevouesn in this thesi 


іл 


Мета ез fate ard relationships. The technique is to develop 


and store the relationships separately from the data (ЯеҒ,21. 


See ARATING DATS AND PELATIONSEIPS 


шШоайтпе tre data base into mein memory would provide 


better access time, However, this techriaue is unusual and 


се еп imonssible to implemert. This is especially true for 





large data bases. oa отор ет for small data base 


systems in a microcomouter based systems, because cf the 


ШЕШІ (51 атлоопі of main memovy. 


The separation of date and their relationships enables 
tne “data base” to be loaded into the main memory іп parts. 
ШЕП адаса ¡tem value is stored once, and is given a Serial 
number. The relationships are stored in terns of serial 
numbers, This saves storage space with these data-item types 
for which multivle data-ite7rs have the same value. Therefore, 
it iS prssible tr load all the relationships. which represent 
the date Базе in terms cf serial numbers, irto main memory. 
ШЕ ассессес involving these relationshirs can then De 


oper oved. 


her alternative is the possibility of loadire orly 
meee needed relationships. It is not necessary to load all of 


en 


(D 


relationships in adata hase if tne user only deals with 


articular relation. 


Separation can be done at the segment level, i.e., groups 
Sect tributes, ог ait can be done st the data item level, 
Meee, individval attributes, where relationships between data 


values are strred separately from those values. 


There are, now, two kinà3is of files: the data files and 





E relationships files. Data files are the files that 
contain the data item valves. nRnelatioasnios files сап te 
EuDped into inverted ard ron-irnvertend files. The irverte? 
relationshins files are tnose that Son tata the 
entity-identifiers of the logical or user’s files associated 
with the values of any retrieval attribute. Non-inverted 
Nac 1on»nships files are these which contain the relatiorships 


of all retrieval attributes. 


Me objectives of this avproach are: 
Ши То make possible faster data retrieval. 
2. To provide more complete data independence. 


EN To save st^rage. 


ШТАТ: 71775 


Pata files are oraanized separately fer om 
relationships files. There are three methods which car be 
meee to construct a data file. First, the data item values of 
each retrieval attribute can be stored in a sevarate file 
(fully sevaratel). Second, the data item values of all the 
Штета] attritutes of the sere type are stored in one file 


(separated by seemert). Third, tre inverted relationships 





Meese sre erbeided in the asseciated data files {partially 
бесага е? !. Fach nf these methods will now te considered ın 


more detail. 


КО ту Separated File 
The data item valves of each retrieval attribute are 
stored in a sevarate file. See Fig. [5-1]. The deta item 
Део of non-retrieval attributes аге included in the 
“entity-identifier file'1). The advantage of this method is 
шщощеазе ог data update. One data item can be inserted to, or 
Meme ted from, an attribute file2), without affecting any 


other file 


Fach retrieval record can be accessed rar?omly, «ren 
meremrecord number of the item within the attribute file is 


known. The record numbers of the retrieval data items are 


Ф 


stored іп the relationships files. Using the given data item 
aS (Пе key, the record rumber of this data item in the 
attribute file can be searched. This record number is used to 
find the value o? the reauested data item. Fy knowin BUS 


record number, the desired data item car be searched using 


the random access methor. 


Sao О u m а ee 


Ши Те entity-idertifier file is a file which contains 
Beemer y—identitfier attribute »lus non-re:iírieval attributes. 
The attribute file is a file which contains values for one 


aftribute only. 


t 





Ns  птепоа the contents of the same type 
БИ оце are stored in one file. However the record number 
Бе first data item of each attribute which 3evelops this 
file, must be maintained. These record numbers are stored at 
E o rirge of the file, inst before the first record, ог 
ure [5-2]. The 


they can be stored in a svoecial file. 5 i 


(D 
Es 


е 


mM 


шеста Туре сап te of fixed leneth or variable length. 


Rəfsre accessinz the relationships file, the record 
number of the first data item of the attribute must Бе 
subtracted from the recori number of tne given data item. 
Then to the result of the subtraction. one must be added. The 
ШЕШІ Of the additicn is use? as the record number cf the 
en data item in the associated relationships file. The 
мраве с^ this method is ir storage utilizaticr. The 
iaa vantaze is that, if changes to the file are frequent, 
Geletion and irsertion cf a large file will be time consunirz 
and costly. This disadvantage can be reduced by storing the 
Bay charesen attributes at the very top of the file and the 


frequently charged attributes at the bottom. 


he 
Ме, 


artially Separated Files 


Ges chius ФИР q ee = m 


ШЕШ Ше пеей (5 тоуе control from a data file to a 
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ЕЕЕ 10975П1р5 7116, and vice-versa, can be reduced if they 


+ 


аге onysically close together. This can be done by сет ед 41 пе 
ШЕСІ гтегђед  rela*ionstips files into associated attribute 
files. The reletionships files, now, are merely the inverted 


ones. See figure f&-31, 


AE LATIONSEI?S FILE 


RPelatiorships files are used to store the reletionshios 
Men the logical file or user's file. The relationships 
files contain the record numbers of? the related attributes 
only. There are two tyves of relationships files. One is tne 
file wich contains relationships of ӨШ те све та 
ОИСЕ. This file is a ran-itvertel file. The other files 
шаси ігуегтейі files. Each inverted file соз ауле tre 
ШОШО УУ identifiers nf the lozical nr user's files. associated 
with the values of any retrieval attribute. Access to the 
До оплопјро file is accomplished after obtaining the record 
Euer of the given data item. Using this record number, 


access to the associated inverted file will give the recor? 


number of all entity-identifiers which have relationships to 


c+ 


the given date iter, ?:fter obtainire tne record number cf 
these entity-identifiers, the relative record numbers of the 
desired data items can be accessed in the non-irverted 


merationsnips file. Finally, these record numbers are used to 
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ERU ата files to obtain the requested 
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A. STRUCTURE CRGANIZATION 


The data base structure develoved in this thesis is a 
fully separated structure. The initial data base 15 created 


using a special program, 


ШЕН) ascal has the capability to access variables of 
Mees string, either of fixed ог variable |епг 1. It also 
supports random access files. Therefore, all data item values 
 теТгатіспеліге are stored as records. Since the first 
Шта ст а file is the Pth record, the physical record 


number is one less tnan tne serial number. 


Босе the relationshins files contain the record numbers 
ле ata files, the organization ther, is similar to tne 
ДО гтег:еј organizatior. except that it uses a relation 
file j(non-inverte? relationships file) rather than the 


original lata base records. 


The advantaee of this system is good performance ir 
Nasponse to various tyves of aueries involvinz the inverted 


attribute values without searching the whole file. Queries 





like Are there any personnel in devartmert Чо. 102 with 
salary ваша] to 3772 can be answered easily ty *NDinz the 
11556 cf pointers (record rumbers) corresponding to the 
access xeys D?PT4 and SAL in the auery. It also provides more 
complete data inlependence. Зу separating the date, different 
apolications will be able to have different views of the same 
data. It wovld be possible to change the avplications without 


any changes in the stored date. 


inotner advantaze ls storaze space са је Рог 
Ши га" јот,. supp^se there are only six SZILL values. Тһе 
file contains many secretaries, but the value “SECRETARY” 15 
stored only once ir the data file. 411 the values “SECRETARY” 
in the date bese are Sume Тестте of the serial@number of 
ANNE TART in the non-inverted relationships files. In the 
Belatsonships files, a SKILL value could be referred to with 
Mums. Using UCSD Pascal this valne is stored as an integer 


ir a 16-bit word. 


Оше л тсадуалбате 15 that it is more costly for the 
updating process because of the necessity of maintaining both 
ШЕ (ата and the relationships files. However, it is still 
better than the ОПЕ 7 chained tree Or ПАРА А Тег 


organizations [Pef.17]. 
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ЖИЕН: ГАТА ЗА57 АСГСҒЗ5 


The data base management system will handle all access to 
the data base. It intercepts the user’s request, interprets 
it, and performs the necessary overations on the data base. 
It maxes use of ап access method to handle the details of 
physical access tn the data base. This physical (lower level) 
access method is performed by the UCSD Pascal operating 


system. 


There are four major programs which were developed to 
access the За а base. CRYATY is a prozram which creates the 
E I data base. The P425Y2 is a program which verifies the 
EN: request and provides all information needed by the 


ШІГЕРОСЕТ 


'xj 
13 


2P. The INTFSPRFTTT is a preeram which performs the 
Hous5ary data Базе manimulations. TTLP 15 а огсегап which 
Em јес the user with information concerrine the logical 


structure of the data hase. 


411 the programs are written in UCSD Pascal. They wers 


compiled separately and? stored ir the system library. 


The initial data base is created by invoxing the 


ШЕПТЕ ргтргап. Тңе дата сап be stored in the desired file in 


ж... 





E ormat, either of tyre integer, string, set of 
Eu ст a combination of those. For convenierce, all 
Ш БЕЙ =< are stored in floovoy disk drive No.1. The system 
Пеш те 7) is used for the overating system, utilities, 


the data base programs, ani user applicatior programs. 
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mans orceram first initializes the system for data 
base пгапјоџјабјог overationrs. Then it asks tne user to 
describe the data base he or she needs access tn. It accepts 


the user’s renuest written in a STOU"TL-like алегу language. 


tj 


rror messages will be ZdZisplayvei at the terminal for any 
ЕШ Өгтог, ап! іле user will te orompted to reenter his or 
Merereauest. when correct input is received, the progam 
zenerates a seauence table and a reference table. These 


tables will he used bhy the INTTTPETTTS, 


In performing дата base manipulations, the 
ШИРЕТЕТ follows the  <еаметсе proviced in the seauence 
memes, The results of the action taken by the interpreter 
will be displayed at the user’s terminal. ‘ny file 
manipulation error, will be discovered by UCSD Pascal’s 


EXER Te system will not recover from this type of error. 
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Пеште ате ive major procedures in INTER?PHZTER. 


a. CONDITION 


This procedure gives the tuple number(s) which 


пиће condition (ovalification) in the user's request, 


EE OUT ay 


This procedure selects the desired attributes) 


Mine selected tupvle‘{s) as a result of fa) above. 


ee ПРОЗТЕ 


Any changes оп data ani relationships files as 
Hee ertfect of the nuvdatine process, will “е randled by this 


procedure. 


„2. 


AS ТОМ 


Кт осете performs any addition to the data 
а 1-2., addition to the data files, and addition or 


changes in the relationsrins files. 


a 
t 





This procedure Jeletos the deta which the user 
wants to remove from the data files. This procedure also 


deletes or changes the values of the relationships files. 


he 


. Bel» 
Пол 1S intended to assist the user in findine 
ШЕ тпаттіоп ас! the data base, i.e... the logical structure 


of the data base, an? provides on-line information on how to 


use the data base system. 


QUART асист 


The SYOUYL-1likxe auery lareuage as previously discussed is 


provided to the users to cammunicate with the data base. 


Syntax graphs and procedures are available in Apvendix D. 
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ШИЕ 50176 (6 с25!1 problems arisinz in the imnlenentation 
Ia. base systers, particularly Рог small applications, 
Осе of microcomputer systems should be considered as an 
alternative. The develoved system has demonstrated that 
ПНЕ У existing microcomputers, using UCSD Pascal as the 
Sv¥stem software and floppy tdisxs as secondary storaze, could 
НОО: Јетедц for srall applications. Although the current 
auxiliary storage caoacities are too small, adiitional #1 овру 
ISS. nizsher densitijes and evertually, hard disks, honefully 


Sageseive this storage problem. 


Is ecnniane of storire data separately from their 
ИНТ 10550105 enables the loating of all tne relationsnins, 
at least the reeded ones, irto main memory. All accesses 
Mevolvirs these relationships, can ther be improved. It is 
also oossible to obtain more comolete data independence end 


tn save stnrage. 
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Meo NIRORUCTION 


This data base management system is intended to provite 
the пеатз for creatine, retrievine, and upleting а data base 
ШУИ microcomprter based system suvportire UCSD Pascal. It 
has three major furctions. 

|. Data base initialization. 
2. Data tase manipnlatio”. 


5. Providine helpful information on the data base, 


с” 
Тн 


гр 


This system is executed with the X(ecute commard at 


outernost command level of UCSD Pascal. 


X(ecute <MICRODATAS 


It displays three available commands associated with tne 


three functions above. The prompt line 


Dommand: Círeate, H(elp, X(ecute 


will be shown on tre screen. The user can select one of then. 


For example, by tvoine "X the system will execute the data 


base maninulation function. With a SPOUEL-like auery lanzuage 





he or she can cormuricate with the data Базе. 


ШОО То worxinsge with this system, the user is expected to 


put the system disk in drive (€ ard the data base disz in 


arive 1. 


B. DATA BASE INITIALIZATION 

For creating а data base initially a special crogram is 
used. By typing C(reate at the command level, a software unit 
named CPFATT is invoked to serve that function. The system 
Will automatically create the desired file in the disk that 
Mime muly exists in drive 1. At this level, it is vossible to 


delete a character on the current line without leaving the 
еге mode Бу tback-snacing over it. The follcwing steps 
describe now to use the system for date base initialization: 


1. By selecting Clreate, a message 


"The system is ready to create a file. 


Please enter your file name ------- > 


will be displayed on the screer. 


2. The user response would be 


<file-name><Ch>. 





Trere are three categories of file names: 


ЕЕ сата file name is identical to an attribute name. 


"xample: 


NAMB «СТУ 


b. 5n inverted relationsrios file name. 


Example: 


EMP.NAMZ 


с. * non-inverted relationships file name is the name of 
the relaticn. 


"хатрје: 


ПИ топе 0: по to 8S printed characters in which the 
first character is alphabet is acceptable. Ir case ОҒ ал 
шта ја file name, the user is asked to repeat. 


J 
ӚЗ. A valid name will give the prompt: 


“Any non-retrieval attribute to be 





en ered in this ile? TIN. 
шазнисег has a Chance to enter his or her nor-retrieya] 
data-item value only in the file of the xey attribute. 


masse the user may type “Y” if he or she wants tc or Ч“ if 


he or she want to out them in another file. 
ENEMY will cause the reft promot: 
Меше сене те its name. 
The user response is like Za. above. 
ри де system asks for the data type: 


Ере (INT ezar. STR inz, SET. l|” 


INT'eser means tre data are of tyve integer, ST2fine are of 


type string and SET are of type set of positive intesers. 


6. The user response would be 


СА4афа %уте><Ст> 


In the case of a non-retrieval attribute, only the type 


of its retrieval attribute ís entered. The ror-retrieval 
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attribute data value is considered to be of tyne string. 


LE ne rext cronot will be 91 5г! ауей: 


"Please enter your data. 


ІТ а ron-retrievel attribute exists in tne хау 


Ки БЫ fata file, the enterinz deta will be interpreted 


alternately- i.e retrieval, nor-retrieval, retrieval, and 


Ben, Tne format for this is: 


<retrieyal-AataN<{Cc”> 


C<non-retrieval—-data>d<CR> 


а. д contro! C will terninate tke system with the followire 


шеззаде. 


"А file named ....... has been entered with .... 


records. 


DATA FAST MANIPULATION 


Mco mpuricate with the Jata base, а SEQUEL-like quer: 


language is used. The system intercepts user's request 
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Eten in that language, interprets it, аге pemtomms 
Meeessary oneratío"s for лаја manipulation" purposes. Error 
messages will te displayed on any syntax error or date 
шатра та от error, and the user is asked to repeat. 1/0 
errors however, will be handled hy UCSD Pascal. If I/O errors 
occur, the system must be reinitialized. At this level, the 


back space character is use? to delete a character on the 


current line without leaving tne execution mode. 


Mec Ollowtne are steps in usine tre system for data 


manipulation. 


1. Type Xfecute at the command level. The following message 


will te displaved: 


LAU 


The system is ready for data maripulation. 


Pileese describe your data base. 


The user user is expected to ldescrite the data base i.e., 


all the relatiors anti attributes where he or she wants to 


mor. от. 


РЕН тре next prompt: 


Гаа оп === =5 





ЕЕЕ (Ле user to describe his or her relation. The user 


response would be 


<rel-name>(<att-name>f ‚(att-name>} )<CH>, 


Braces ‘{}) imvly zero or more repetitions. 


Ж ЕПС system resports with the rext prompt: 


"Attribute ====> 


The vser response world be 


<att-name>,<status>,<type>f<Ci><att-name>,<status>,<type>} 


E. or A Ся 


ite ~ ока“ _< аге “optional. They are used fer 
HEESer)b2»nz another relation and terminating the description 
Meemectively. Without “,” or /.^, the prompt ====> will 


Кеа осрјауед for the next attribute. 


4. Frteringe a '.' causes tre prompt: 


"Relation ===> 





ШЕ 5тер 2 а"1 $ above have to be rerneated. 


ғ" 


с Те syster s response on °.” is 


‘Preparation is completed. 


Now you may five your command. 


6. The svster new is ready to intercept any user’s request 


(commanr?!) written ir a SFOUTL-like query langvage. Format: 


<eommend >.< C?> 


results or outouts are displayeil on the screen for each 
succesfnl data manipulation. followed by a л 


wai Cates that the system is ready for the next command. 


НИ Ергог messages will be displayed for syntax, data 
ШОМИ афі оп ог I/O errors, either durirg data base 
description or manipulation. Then the user is asked to 
redescribe his or her data vase ог repeat his or her 


request. For examole. 


EMP!TMP#,NAMF.DFTPT#,SKILL <CR> 


will cause the ressage 
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Svmbol “Y” is needed. 


SENO FROM EMP ....... 


pives the message 


~ 


"Undefined relation.” 


ПН О errors are handled by UCSD Pascal. If they occur 
AOL 15 trarsferred to UCST Pascal, the system auits and 


ras to te reinitialized Ту 


X(ecute <MICPODATIRASTD 


EN ne command level of UCSD Pascal. Then procedures fron 


Step 1 have to be followed. 


10. горого! -С terminates the data base manipulation 


function with the messages: 


Гата base manipulation has been completed. 


(тој is transferred to UCSD Pascal system. 





ieee? FUNCTION 


Шишо system is also provided with the helo function, 
which helps the user to obtain information about the 
currently existing data base. It will list all the existing 


relations and attributes includire their status and types. 


By selecting Hlelp at the command level, the help 
function is performed and the information will be displayed. 


For example 


coa “Pi PMPs NAME DEPT# ,SXILL,SAL,ADDA) 
ЕНЕР ET NER 
ARRET СЕ 
DE TF ПЕНЬ. МВР 
SOS DRE T 
ape ep eM MP 


ADM ION CE 


relation: CHILD(EMP*, CENAME,SEX,AGE) 
EMPH CKE NER 
ЕАО ВОВСЕ 
КТИ. 


СВ 


Control-C terminates the helo function and transfers 





МӘСІ то tne UCSD Pascal system. 








IE NDIY SS ОПЯНТ LANGUAGE 


A. INTRODUCTION 


A stand-alone SFOUEL-like anerv language is used in this 
ЕЕЕ ft is intended to ovrovide the retrieval (SELSCT) and 
Storage /UPD^TT, INSERT, DELFT) overations on the existing 
data base. Some of these have not been implemented 
completely. "nr creatine a new lata tase or file, a special 


program is used. (See Data Rase Initialization). 


БӘСРЕТЕТЕУАТ, СРЯЗАТТОУ 


simple Petrieval 
evamples: 
a. ^et all employees' numters and names. 
SELECT PAPS NIME 


ЮКО КАБИР, 


b. 5et all emvlovees’” stills. 


ONCE STILL 


AROR Ме: 





с. Get fun11 detailed informatior of all employees. 


See 1 S 


Be eee 


Jet the employees” numbers and names in department 


N72 with salary greater than 390%, 


SELECT EMP*,NSMF 
O EMP 


WHERE DEPT*=102 AND SAL > 2690. 


oe 


"y 
(D 
e 
3 
it 
(D 
IS 
и 
| 
"а. 
Іс” 
+ 
O 
У 
а, 
(D 
122 
de 
Е: 
м 


Set the female children’s name and age arranzed in 


descending order of aze. 


SFLFCT CHNAMP, AGF 
TROM CHILD 
WHERE SEX= FEMALE” 


ORDER PY 12 


a ~~ oh 


141 


та 


US 





DN ENG Ak 


EOM 


WHFRE 


AAMT 


EM? 


WMPS IN 


the Зета 


female children. 


Е 


се 


зи 


СОРОТ EMP? 
HROS TORTUN 


WARE STX-'TYMALZ^ 


rtment name of the emvloyees who have 


ee А ај 


ОМ DEPT 


WHERE 


рге JT 


SAO DL 


FROM EMP 
NE ÓN 
SLIM 





no CL 


WEERTF SEX= FEMALE. 


> 
¿Y 
(D 
c+ 
>; 
к” 
(D 
“3 
(u 
- 
jc 
іл 
к” 
тыз 
% 
E 
=> 
(D 
іл 
ж 
(D 
га, 
|< 
Te 
з 
о 
¡A 
13 
Ще 
Ir 
(<> 


тен  — вит «и ee ит «е. oo -m о ee 


Refererce. 


тей employees'/' name who has never teen in department 


number 192. 


OE AMS 
УКОМ EMP 
METANO TD IN 
О а DES 
БИО ПЪРТ 


иняът гмън < тур. тмри 


g A Nested Mapping With The Same Table 


Get the emplevee rumbers of employees” who have 
Preparer of the same ace with at least one of the childrer of 


the emoloyee with number 27672. 


SELECT UNIQUS БУРУ 





SION ECHITN 
WoeRe AGE IN 
ӘНШІСІ Fer 
GROW CSITLD 
WHERE TEMPE = 707672”. 


БЕП supplier ranes for suppliers whe supply all 


parts. 


ЕС SNAM 


PROMIS 


il 


Get embloyees” numbers who have no children 


сл 
О 





(SELECT EMP# 


ЖИЕ) 


MINUS 


NSENEFCT EMP# 


ШЫ СП” 


= 
ID 
512 
(9 
c+ 
> 
Ir 
(0 


Get emplevees” numbers who have the same 


salary es enoloyee number '27672'. 


WHERE <SKILL,SAL> IN 
FECT 52151,5 97 
МОМ РЕН 


WHERE EMP# = 7076727. 


STORAGE OPPRATION 


Pa 
IC 
на 
С 
{c+ 
ID 


64111 


апа 





а. vimple Update 


Pranze the department number of employee numbered 


core to 21^ 


CEDAT? EMP 
SET ПЕРТЯ-2107 


WHTRY FMPs-'076C72* 


b. 2epeate? Up4ate 


Change the department number to 212 and the 


salary to 2700 of the ermvuloyee numbered 07672 


Berets EMP 
SL DPPTF=214, 
SET SAL =3082 


үчүрРрт FPMD2-'27672'. 


eee ‘Multiple Update 


Мошо ес бо  anelndes ar extra attrioute P32M 


(premium, sav 10 percent of ris/her parents salary per child 


Mnder 20% 


increase 


years old.) an increase on an employee’s salary will 


his/her children’s premium. 


UPDATE FWD 


SET SAL=38€2 


ЯНЕРУ Рмр#=°77672°. 


Al 





ШЕ 58175 


5 


taj 
к) 


Da 
E 


Ls] 


м-25020 


МЕСТ тмрӘн- 076727 AND AGT <22. 


 Іпсетіісоп 


u «тъ» Фе» с «жа. A oe oe de 


Add an employee named JONES, C.F. with emvloyee’s 
280 in devartment 224 as the secretary with salary 3829 


INSFPT INTO FMD 
RATES. 70575 С.5”,227, 75ҮСВТТАЗУ”,32000>. 


ететі от 


тыш» oe a Gm GE u 


- 
— 


eee Qualified deletion 


Delete CHILD if more thar 2? year old. 


pops HDD 


МНЕНУ 6607 > 26, 


b. Unanalified deletion 


Delete all children. 


ПО ОСТА, 


num 


cy’ 


f 


= 





MT PRARY FUNCTIONS 
1. Ригстров 1“ The SELFET Clause 


— -o e =e — == 


a. Get the trtal number of employees. 


Ст Тт COUNT(TMP# ) 


HOS EMO, 


DI 


SELECT COUNT(*) 


ШОМ E MB 


b. Get the total number of employees who currently have children. 


SELFCT CCUNT(UNIQUE EM?#) 
РОМ ОН 
EE uUnction In The Select Clause 


Get the total number o? employees who have female 


ildren. 





5. Function In The Predicate 


^et the employee's rumbers who have the maximum salary. 


тт 


DMD 3 


сл 
ЄЗ 


ға) 


Sen 


13 


НЕ 


Wipe ср 


SELECT MAX(SAL) 


EROM TME: 
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block 








relation 


> 





Alt dese 


DO 


мар 


E. СЕ E Ра та 
- d J--—{ + af stat — i: = ind }—~» 


EM 1 vntaesemeast fer describing the data base. 





D. Attribute. А term referring to a column of a 
relational file in a relational data base system. 
Eu tribute file. ^ file which contains values for one 
BUUribute only. 
EC ontrol-C. A control key used for terminating an 
прегаб Оп by pushire CTRL and € buttons simultaneously. 
4. CP/M. ёп operatine system used for Intel 84388 and 72-80 
Mmreroprocessors. 
Е СЕЯЎ Carriage return key. 
ұ Тата ітістегдегсе. Іттіпійу of applications to change 


in storaee structure and access strategy, which implies that 


км 


the applications concerned do not 4 


(D 


pen Cg any one 
particular storage structure and access strateey. 
ПИ су. Item about which we store information. For 
example, employee's name, adiress, etc., are the entities. 
Bemeotity-ldentifier. A zey which uniquely identifies an 
ШООГО Уу ог date concerning that entity. 
9. Entity-idertifiers file. A file which contains the 
miro y-identifier attribute plus non-retrieval attributes. 
10, Inverted file. А Ғі1е which cortains the 


entity-idertifiers associated with the values of certain 


attributes. 


^6 





De erted relationships file. ^ file which contains 
іле values of а retrieval attribute and the 
Mty =12ertifiers of the Тов! са! or vser's file associated 
with the vaines of that retrieval attribute. 

ше. Non-inverted relationships file. A file which 
contains the relationships of all the retrieval attributes. 

Шо тотро, line. 4 disvlay at the terminal which shows 
ШОШО тел! mode ата the options available for that mode. 
Available in the UCSD Pascal system. 

14. Cuery lanevege. ón Enelish-1ixe, complete prozrammine 
languege for both obtainire ага ranipulatirg data from a data 
base. 

ши nelationshios file. A file which contains the 
relatiorshivs of the related attritute files, in terms of 
serial numbers or record numbers. 

16. Separation techniave. 4 techniaue to develonv and 
Ж ПЕ (пе relationships within the logical or user’s file 
sevarately from the tata. | 

ШИЕ ПСӘ) Pascal. A software system. highly machine 


independent, used for stand-alone microcomputers Or 


minicomputers. 
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UNICO UE) = -= EXpression “= ` 
сес: 





boolean 


A bool-term 





Боо -теггп 





moeol-tact 


ms | A boolean а 


A NOT y" 






HARTA m 


B predicate c- 





MESS Гог 





A 
! 
EN so Cit. - fect | 


---------------- —— 








arith-terrn 





SIB -t erin 


—————————— 


E. -an th- faster Poe 


оре Тастог | 





Ери г. -тас Тог 


— ~ A m 





> 
primary йо SU 
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primary 
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E DÍ 


S Е 0 "| expression 
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Рила сата 


{езген | — enari sor m | 


| ӨШ 
|" e — [eem | Ec 


comparison 
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table-spec 
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ШЕ | от 
Ben 0.0. 


O a AS 
| | г 
| 
| 
| 


енен кенен TI ЗЕ, 
set-clause ж 





set-cluuse 


= \ с ~ ЗАДЕ 
j 


; 





та ерес-і|1<4 


field-spec wey 


field-3p2 - oes 


Ое л -<рес 


- — ~ 
” 








SET T-spec 


о 


que Пс“ рга ~, — Б > 


| 
са -J literal 









Me ral! 





— А 
4 Mite Порше 





lit-tuple 


стига лет 











stea o ~, ~ ahs whe ale ate ate ale whe ate ale of à 
PE 2,5 HS AS AS IS HSS STS AS AE SSE BS AE AE NE Te HE OE NE ME BS NE BIS Ys Se oie TS SR SHS IS AS SIS HE SIS SIS OK OS HK IS STS TIS IEE ONE TIS TIS BS TROIS SOE TIS OE A 


5 


Je 


ж MASONES INTSNEED TO CREATE INITIAL DAT! 5555, 

3 НИЈЕ [> 654) ТО TIVE THE FILE NAME AND TRE DATA 
ЩЕ MASAS PROS MANUAL) 

( % 


Fe ate whe aly fo Saale ata le ~ ә} wo «o wo uo alo alo e? è 3. è 4 “.. A 
E O O O OOOO 


“ч е съ УЧА A 
г 

е 
36 36 3: 3: 36 39 


3¢ 
3 


қыса лары 


NET CREATE; 
INTEEFACE 
CONST MAXT 585 (* MAXIMUM NUM2ER OF TUPLES *) 
(ж IN ON? RELATION е) 
ІШ 
RECORD 
IDATA 2 INTTOTRS (х OF ONE INTEGER KEY 
( 


ШЕРТ INR a 
INNON 


ОЈ еј A 
ENG; A TT? IRUTSS 
STNON = STOOD (ж 
У РАТА. (ж OT ONE STRING KET 
NONS =: STRING en 
Иж 


END; ATTRIBUTES 


Sere = RECORD МОН О Cl eel Ast 
B 


СОЛИ оте ТИВН 15 0% 5ҰТ OF INTSG 
END; 


VAR EMO PILE OF SINT: 
SIMIL t FILE OF STRING; 
See pues Ripe OF SETAC; 
TNON ANO ENON: 
SNON RILE CE SINON, 


Meee DURY EPFITTS, 


IUMPBLSMEATATION 
ШЕКЕ FEC, 
NUM : INTEGER; 
CH : СНА?» 
INPUT, 
PNAMT: STRING: 


BeeCcEPURS CREATES; 


PROCTDURT* PNTPRINT(F : STRING); (* CREATE FILE OF INTEGER *) 


BEGIN 
DEYPITTI(INTFILE.F); 
ВЕС s= 0; 
WHILE NOT EOF(INPUT) DC 
ВЕСТИ 
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RECORD WICH CONSISTS 


> AND ONS NON-RETRIEVAELS 


ODA AICA CONS SES 


(+ AND ONE NON-RETRITVARLE 





Maen Ree). AST(INTFIIN)S 
МИЛИ =>) 
AO АИ ИМРЕ y: 
IF NOT FOF(INPUT) TEEN 
ESA 
SAN IEA PUT мат в т; 
КОО РЕС ет 
PNY 
END; 
CLOSP(INTFILE,LOCY) 
CND; = PFNTURDITA * 


PROCEDURE ENTERSTR(F + STRING); (% CPRATE FILE OF STRING >) 
ЗЕСІМ 
SEWRITY STRFILE,F); 
poc em AS 
WEILE NOT ZOF/INPUT) DO 
RESIN 
SES DR FILE REP cer Ti STR? Шо; 
ИЕ ӘКТІ <ТЕФТТІРЕ ); 
I" NOT "OF(INPUT) THEN 
3*5GIN 
SWUNESUSTPELTUTE puc pUmTSTSTILRE): 
2570 :- REC-1 
END; 
ҰМТ; 
ИШ Ох STSTILT.,LOCK) 
END; 


PROCTDUR" FNTPTRSTT(F =: STRING)$ (* CREATE 
RTGIN (ж Т 
EUUSIT"(SPTTTLP.F):; 
КЕШІ %- 0; 
WHILE NCT FOF( INPUT) ТС 
E I М 
SE и о је пет о реге) 
МРТТУ( =>“): 
ШИН СӘТЕТІЗ” ТОС 
BEGIN 
Summae и: 
RTPrTAT 
READ(ÍNUM)5 SETDATA := SETDATA + [NUM] 
UNTIT FOLN(INPUT) 
END? 
I" NOT FOPLINPUT) THEN 
BEGIN 
SA (SATF E, rC): POT(SETFILE); 
RPC “= Ест 
ENS; 
IND; 
Goo (Se TP TLS, LOCK) 
END 





EERUEDUSE INTANONON(F = STRING): (* CREATE VILE OF RECORDS *) 
BEGIN ESO N SS TS OF ОМ =) 
КЕТТЕ ІК04.%); (*  INTESER AND ONE NON- ж) 

REC :- 0; (= ЗЕТПІГЕУАЗТЕ STTEIBUTES *) 


WHIL* NOT "OP(INPUT) DO 
BEGIN 
BEEK(INON,SEC)$ GET(CINONY: WRITE =>): 
WITR INON DO 
RATRIN PPADLN(IDATA); 
WAITE => i READIN (NONI) 
TND; 
ГЕ NOT EOF(INPUT) TIEM 
BPFGIN SFEX(INON,.?FC): PUT!INON); 
Эт += RFC+1 


END 
END; 
BeOS’ (INON, LOCK) 
END; 
BEERSNDDRE STP'NDNON!ÍF +: STRING): (* CREATE FILT OF RECORDS *) 
BEGIN (ж WICH CONSISTS OF ONT ж) 
REWRITE SNON,E)$ (ж STRING AND) ONE NON- ж) 
HEC := 2; (* RET2IRVA3LT 4ITPIBUTES %) 
WEIL" NOT TOT(INPUT) DO 
BEGIN 


Е ЧОМ SECUS GET(SNOND WRITES SP); 
WITH SNON DO 
TUATN 
ОТ О РАНА 
URITF( => ста ст а ле оран) 
тип: 
ШЕ ЧОТ тб (ТУРТ) Dem 
BRFGIN SEFFK(SNON,PEC): PUT'SNON): 
RC c= НЕСІ 
YN) 
UND; 
CLOSE(SNCN,LOCK) 
END? 


PE IN (C CREATES *) 
WBITFLNG 
WRITTLN( “The system is ready to create a file’); 
WEITF( “Please erter your file name --------> 7}; 
ЗҒАТІМТІМЕПТ); 
NAME c= CONCAT( 45», INRUF); 
WRITT( Any non-retrieval attribute entered here? Y/N =>’); 
Ена) CRT: WRITELN? 
MECR = ~Y° THEN 


Да 





МРІТК(“Ә1саве гіуе 1%5 rame 
WFITTLN: W^ITF(' Data %уре? ІМТ”еге 
3EADLN:IN3UT); 
SEITTLWV(Í'You may enter 

ШЕГЕ СТ 


s 


Mom eed aas 


М0: ІҒ ІМЗПІР = “INT” TERN SNTERINT: FNAME) 
BLSE IF ІМЗОР = “S232’ THEN ENTERSTRÜFNAME) 
ОШ ro Берт 


TEN SNTERSST(TNAME) 
ЕТСЕ BEGIN 
WRITTLN( “Pail to create a file’); 
ВТ СРЕ Ta ) 
PND; 
^1' : IF IN?UF - “INT” THEN INTINDNON(FNAME) 
ELS IF INAUF = “ST2° TREN STRAVDNON(FNAMS) 
FLST PRSIN 
ИЕЛ ОЕ Gail to create a file”) 
TYIT CREATES) 
FND 


UND: 
ПИТА File with nane " .FNAM*." 
EET LN with 7 ,877.4,” теасотй45 ) 
ЕМП: (% СЗТАТТ5 ж) 
ШЕ “ХО ПКТТ сртатт ж) 


Бас been created), 
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ШШІТ EEL? Ss: 
ERFA CF 
eee TXT : TEXT; 
EE DUR* Ep 
ШІПЕМЕМТАТІСОУЧ 


ШЕГІ. КТ” 2 INTEGER, 
ЕН CRNPS 


PNAMT .: STRING; 
PROCETU?E HELP; 
PROFFENURFT RTADTXT(S : STRING); 


?YGIN 
Бајо от тит 5). 1 9505 
втртат 
WERTE NOT SOU | Pan За 
RSGIN 2RAD(TYT,CH)$ WRITES CH) SND; 
REtOEN( TXT): I »= 141: 
уаттетч; 
UNTIL, (T = 27) 0° ( *vov(TXT)); 
ІТ NOT FOF(TXT) CUEN 
REGIN READ(CE); 
IF CH = % % TEEN IT ı= 9 END; 
CLOSE TXIT. LOCK) 
күр: 


BEGIN (* HPLP *) 
WRITELN; WRITE(“Díata Base, Ulser Marual ->”); 
READ(CE)? WRITELN; 
Case CE OF 
D + ?МАМТ :- “DATABASPS ( 
^UJ^ : PNAMP += “USERMANTAL” ( 
END; 
RTADTYTITNAMF) 
END; 
mop. (= uwr" BvLPS *) 
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« ІМ SYSTEM DISK 
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ODO CUO Ss ea: 
NRR : 'VAL < INTEGER) 
ҰМ; 
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NBE © WRITELN( “Number or anoted string?’ ); 
NUL > WRITELN( “Too long for a number’) 
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ШЕСТ ТОЧ РОЗЗЧЪ (В : STRING) 2 INTFGTR; 
ШІ: ІҢ?5СЕ2; 
BEGIN 
І <- 0%; 
gee AT 1 <= I+1 
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EHOCHDURE REUDESCS NON DESGETDNIONS 
BEGIN 
те SYM = IDENT THEN 
PYCIN 


ELO SLI] NANO <= SIG; 
PFLTBLIJ]).BASE := I: SCANNER: 
ИБМ = LPAN TREN 


36 


Si zn 


Н 


AB: 





BEGIN SCANNFR: 
ПВТ Ре 
WHILE SYM = CMA DO 
REGIN SCANNER: ТЗРМТТЕТ 
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END; 
an оро 
SAS 
BEGIN FUNC := SYM: SCANNER; 
AS UNO PE 
PEGIN SCANNERS 
MUR AM л 
EGIN SCANNERS 
ЕЕЕ ИС мер 
"57 PRAOR ыс 
GAD RLS 2 UNL 
NDA ES Ee OR TERN 
INP ELSE 
ПО TONE о САМЕ 
SLST IF SYM = LPRN TEEN 
BEGIN SGANNED; FXDRESS; 
IT SYM = RPRN TEIN SCANNER 
ПАЛАУ по РЕ 
UND 
EDS F PRIMARY *) 


BAN ¿5 ABITETICT ғ) 
MISA IN [PLUS, MIN] TEEN МЕ а 
BECIN S*5VSYM :- SYM: SCANNT?" "ND; 
BEY 57, 
NES YV IV EPLUS, MIN' T7"N GEN SYVSYM) 
ЕШ; SsEITE2RM *) 


BEIN * ARITETURM *) 
КЕНЕА СТІ: 
WIILT SYM 1% (5Тар, 51,555! 00 


(1) 
О 


DN 





77,5" TRROR(DP3N) 
PND; (МІС ж) 


DUSTIN (* ORIMARY 9) 
Iv SYM IN FavSSYM, MAXSYM, MINSYM, SUMSY™] 
REGIN FUNC := SYM} SCANVE33 | 
I? SYM = [ром тоту 
BEGIN SCANNER? UNIO 
IND PLSF FRROR(LPEN) 
END TLSP 
IF SYM = IDENT TEE 
BEGIN SCANNERS 
I? SYM = PQ) THN 
BEGIN IF CC Y LL-1 TEEN 
BEGIN SCANNER} 
I? SYM = TDPNT THEN SCANNER 
TESP teens tarp) 


SYM = LP2N THEN 
N SCANNTR2? UNIO 


LS 
бум = CNTSYM TETY 
IN FUNC := SYMj SCANNER; 
IP SYM = тор“ TETN 
BPAIN SCANNERS 
IF SYM = STAR TETN 
BEGIN SCANNERS 
[т SYM = 22°N TREN SCANNED 
TLST "R30R'/2P3N) 
END ELSE UNTO 
TND FLST FRROR/LPAN\ 
INT ELSE 
IT сум ІЧ (000Т. NOP? THEN SCANNED 
TLST IF SYM = LPRN TEEN 
AUN ОСА ЕЕ MX DES S 
Іт SYM = RPRN TEIN SCANNER 
трг тРРОР!РРУМ) 
UNT 
END; 6 PRIMARY >) 


ШЕРІ /- лоттстігт ж) 
ШИТ ІЗ [PLUS, MIN] TEZN ENA 
Бубу :- SYM: SCANN®2 FND; 
АШ 157, 
SENS TA IN (PLUS, MIN? TYPN GEN’ SAVSYM) 
ШШ,; 7 SRITEPSM *) 


, 


ПИЦА * ARITETERM ~) 
ARITHFACT: 
ШЕН СОҮМ ТЫ (5749, SL!SEI DO 


25 


TH YN 


СВ” 





ттл] SAYSYM з= SYM; 
SCANMEFO: S*7ITETCT; 
1TNÍSAVSIM) 
END 
END;  'U* ABI THTTEM ж) 


PEGIN 2% PXPRTSS *) 
ARITETERM; 
WHILE SYM IN [PLUS, MIN! DO 
EFGIN SAVSYM := SYM; 
SCANNER; ARITHTTAM; 
ста (бвубтм) 
ND 
END; (* FXPFISS *) 


EE 


RE PNTRYLISTS NES E) 
TUS "NTRYLPRM; 
EN A ENTRIORM *) 
МО = ома TUN 
BEGIN 5CANNESZ?; 
MES TY IN [SUOT. N8P! TBEN 
BETEN SCANN=R, PNTRY LPR 
ENE 21557 %550%(53%) 


ЖШ: i ENTRYLPRM *) 


NS INTSYLIST ж) 

SYM IN [QUOT, N2R] TEEN 
BEGIN SCANNEES FNTRYLPOANM 
ЕМ) PLSP TRRCRINDPR |) 

ШІ) ENTAYLIST х) 


NSOUDULT LITTUPLT; | XE ТІРІ? 
БЕРІП |5 LITTUPLE *) 
МОМ = LSS THEN 


БЕСІГІ SCANNER: ENTRYLIST 
IE SIM = GTR THEN SCAN 
TLSE PRRCR/STR) 
END ELSE ®7RC2(LSS) 
moe (* LITTUPLT *) 


, 
NEP 


æ 


EROTENURT LITTRALS 


EGIN 
ШГІТПІІЕ; 
ШЕШЕ 5ҮМ - CMA DO 
ВЕСТА 
Sean SR, LITIUPLE 
FND; 


DEM = HPRN TUEN SSANN"R 
ELSE 281023í93PRN) 
END; 


от 





PROCEDURE QUERYBLOCY: (*% QUEPY RLOCZ WHEPE SELPCT-TROM-WIERE *) 
(o CLAUSE IS FOUND x) 
VAR  SAYVRTT : R7TRE^: 
SAVSIM : SYMBOL; 


БИ ЕСЕ тооморм; 
НИШ |“ РРОМРРМ *) 
ОТУ = См тоту 
BYGIN S^5NNTR; 
ДЕЛОМ = IDENT TIEN 
BEGIN SCANNER! FROMDRM 
Ди тест TRRORÍIDONT) 
END 
ШЕК тобмррм *} 


Be /* QUTRYSLOCK *) 
INS YM = SFLSYM TREN 
ЕНЕ ТТ s= 1: ATTS := [13 ALL := FALSE; 
SCANN S23 
IF SYM = UNIOSYM TUFN 
EZGIN SAVSYM := SIM; SCANN??? IND; 
m SYM = STA? TEEN 97714 АСТ, :- TRUT? SCANNER FND 
SETI КҮРЕТ55: ТҰМЫГТТ) ;- 575; 
ШЕШІ? 5ҮМ - СМ% по 
ВЕСИ Ерт ЗЕ 
BOR SS, Тумо тт ІН 
END END; 
ШУУ = Ұ5У5УМ ТНУУ 
РТА 508ММ78: 


WYM = IDENT- THYN 


BEGIN 
A = POSRTLÍSTR); ( БА ПИО ХО. =) 
e RAS 5253 OF ITS ATT %) 
= ЕЕГ ТАВ; (х 4 OF ATTEIBUTES *) 
IF ALL TEEN Берир IN INQUIRY *) 


"OR I := Ft TO 2+0 DO ATTS := ATTS + [1] 
ЕБУ ВТІМ 
р еж т; 
Boon] += 1 20 ТТ BC 
ATTS += ATTS + [fPOSAP”T(P,TFEM2[1] )) 
END; 
NAS (| eee PUNC STTS): 
ӘНІН = ТБЕТЕТІСПІ)|: CX >= СЕЕ: 
SCANNERS FROMPRM; 
Іт SYM = WNEP?SYM THEN 
ттлт SCANNER? 2005: 
CL: CX+1; некраросху := SAJFES, 
ATNISTLSTM) 


= 





OND TLS? 
mor сот NEO. LSS, LEO, 


БОЛТ ЕМ таб тен TIEN 


Proce FUNG 2= ЗІМ: SC8NNEF END 
eos OR INS YM} 


ШЕ. (= COMPARISON *) 


ГМЕ я ~ 
ЖІ u. 


PON (Ss PREDICATE =) 
I SYM IN [SELSYM,LPRN, LSS] TEFEN 


ШІМ TIPLESPYCS СОМРАВІ50М; ТЕРІЗ5РЕС 
END ELSE 


Bets! ҮУ22756 
ие я, 1 


= POSUI TIPOS MS 
ШЕ ATTR ЕО: 
BOMPERISON: 
ico. MIN [SELSY™. Le Убита 
DUUM DSTR tz ПОЕНЕ ки = OO 
NS T АМО ОЛТУ; 
Ser == ега ТРЕ СЕ а Gk :=:CX=-1; 
В БРЕС; 
Е ИЕ И SN AE Y 
КМГ LOS ВЕС ЕТ th PS ross 
ОО ОООО ЕЛ AND 


' 


IT SAISYM = LOD THEN FEN(LOD); 
END; іс PREDICATE *) 


Boos DUES BOCLEACT: 


— 


VAR SAVSYM 2 SYMBOL; 
ЕСТ СУ 3005 v4CT =) 
I? SYM 2 NOTSYM TJ*N 
ӘНГІМ SAVSTM := SYM: SCANN?2 
END RLST SATSYM := NUL? 
Iv’ SYM = LORN TEEN 
STGIM SCANNFRS BOOL; 
ІТ SYM = RPRN TUFN SCANNTR 
ELSE EX?OR(RPRN) 
END BUSF PREDICATE? 


IF SAYSYM = NCTSYM THEN GEN/NOTSYM) 
END; (* BOOLFACT *) 


Esca (C 300cLTZaM *) 
ПОРЕ Са 
МИШЕ ОМ = ANDSYA ТО 


BEGIN SCANNERS BOCOLFACTS GEN(ANDSYM) END 
EU (= POOLTTRM *) 


CIN зсот =) 
БОО ТУЕМ: 
WHILE SYM = 0257М ГО 
PECIN SCANNTR: BOOLTTSM: GFTNÍOPSYM' END 
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E OPDSPECLIST> A NS БАСЫ LIS) ~=) 


PEOCEDUFF FIFTLDSPEC; 
BEGIN (* FIELDSPEC 
EN SYM - InTvw«T 7 
BYLTN SCANNTR: 
Ши бум - »3Dp THEN 
BFGIN IF CC < LL-1 TEFEN 
PYGIM SCANNTR?: 
IF SYM = IDENT THAN SCANNG= 
“7,6% PIROR(IDENT) 
TND; 
END 
ED LS" YRROR/ITTNT! 
ШІ /* FIELDSPEC ж) 


EE] 
а Zt 
2 -— 


ISS *) 
ПШЕТРБЗТС), 
MEE SYM = CMA DO 
ВТМ SCANNERS FIFIDSP"^ , PND; 
EN M IN [ASCSYM, DEZSSY"V] TETN SCANNER 
ШЕ) * OPDSPTCLIST ж) 


КООШО? INSE?TSP7C; (ж INSERT SPECIFICETION ж) 
AN + INSERTSPEC *) 
ПОУМ = LSS TEIN TITTUPLE 
Poor 1° SYM = S™TLSYM TAIN 
БС QUERYBLCCK> 
WwHIL* SYM IN ТІМТР5УМ, UNISYM, MINSSY“] DC 
Pein SCAYNG2; OUIRYBLOC? END; 
AD PLST 
ШЕ 5ҮУ - LPRY 
REGIN SCANNE 
IP SYM 
ELSE а а 
QUERY?X?F; 
I?" SYM = RPRN TE*N 
REGIN SCANNERS 
WHILE SYM IN [INTPSYM, UNISYM, MINSSYM] DO 
BEGIN SCANNER: QUERYRLOCK END 
TNT FUSE FRRORIRPRN 
END 
END FLS? TRSOP/LPRN) 
ПА f= INSTRTSPTs *) 


HEN 
у 


SIA RO ри 


| 
|“ 
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ЖЕРГЕ SETCLLIST: бс дс а EST ~) 
ШЕ SAY oF zer, 
J ODER, 


DROCEDURE ЗЕТОТ, 105°; 
ӘЛІМ (*% SPTOLAGYST ж) 
ТЕ SYM - SETSYM THEN 
BEGIN SCANNERS 
Ме сум = ТГЕМТ ТЯЕЧ 
BEGIN P :2 R; I :- КЕЗІГЕ 
ЖЕНЕ 5- TT [I]. KIND; ShA 
IF SYM = OL THEN 
РКО ПА PUNC == SYM SCONNT2; 
IF SYM = LORN TIEN 
СЕ IN SCANNE, ОПЕРИ BEN E09); 
I" SYM = ROQN TITY SCANNTD 
ТЕР ЕЗ262/39352 
END 715“ кХрокб5 
TND PLST PRROR(EQL) 
ШІ ELSE P3"OS(ISENT) 
TND TLST TRRORÍSTTSVMA) 
ПИРА (~ SETCLAUSE *) 


„ УТА); 
{үт LE 


BEGIN (ғ ЗУТ" EMTST) 
SEICLAUSE ENDE EIS, NISUS OE, 
СРМ, TIC 
КЕШТЕ SYM = CMA DC 
БИРОА ОСАМ. 59905 5052: 
RUTTR' ПАРНИМ FUNC OETI 
SEN STTSYM) 


TOR J := 1 TO MY DO a: 


ШЕНІ := CX. OX := 
EUN := 1 TO TOP "0 Sa ystol] л О; 
Eo .= ТОР, ТОР := 2; 
ieee SSTCLLIST х) 


EEGTN (* STATEMENT *) 
ПОО = 2! TOP := At ERR := 2: 
Meer :- 0; TSEO := 0; 
IF SYM = INSSY™M THEN 
BESGIN (* INSERTION *) 
SCANNEPS 
IF SYM = INTOSY TREN 
BESIN SCANNZ: : 
пети TT NT THON 
BNGIN SCANNERS 
NE Uv - ELY TEEN 
P"RIN SC5NNT2:; INSTRTSP?C 
END ELSE ERPOR(CLN) 
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ШЕШ 57655 ESO (IDENTA 
ENS LS? “РОСр(ІКТ057М? 
ВО SE 
MS TM = UPDSYM TREN 
BEE IN a Bena) 
SCANNER; 
MES YM —- IP"NT TETN 
hear А •= COSRBEL(ST®2)$ 3 := RELTSL[AI. BASS; 
ОЕ а АТ ОБИИ УМЕЕ о КРОС о Те 
ITF SYM = WEERSYM THEN 
BEGIN SCANNER; BOOL: 
POI = | то TXEF ТО 
[EN Сат; 
ера CAS A 
Wan, 
ПШ “- 1 Т0 7556 DO 
ДЕТ тор отгеп; 
О ЗЕТА (ТОР x SS SIMI 
UND 
END 
END FLSE FR?OR/ÍIDTNT) 
UND 1157 
lee SYM = DELSYY TEEN 
ЗІМ (* DELTTION *) 


SAVSYM «= SYM$ SCANNERS 
he SYM = IDENT Тиям 
Ge Noe ес 
SUBS S 
TNTTR/A,A, A, FIUNC,NPR); 


де 
O 
un 
‚2 
ES 
ся 
N 
tJ 
РАЛ 
1) 
| 
ras 
tz} 
ia 
+3 
13 
i 
г 
с» 
tad 
ОЈ 
"> 
сл 
ГЕ} 


A OO Y 
SCANNTR: 
IF SYM = WHIZRSYM TEEN 
BEGIN САММЕР; BOOT: 
AY з= бузу: что = SAVRET; 


REN(S SUS YM) 
TND 
*ND ELSE TAROR{IDENT) 
END ELS? 
BEGIN (* INQUIRY *) 
QUFRYEX?Rh; 
TF SYM = ORDSYM THEN 
BRGIN SCANNERS 
TE SYM = BYSYY THEN 
AIN SCANNTR: ORDSPFCLIST 
END ҒІ5Е Ғ2202/ЗҮ5ҮМ) 
PND? 
END 
END; (= STATEMENT ж \ 


END, х UNTT PARSE *) 





% 
o 
ur 
55 


ж 
a8 
c 
En 
Se 
y 
t 


% 
%ҡ 


Ere перата Moe 222 abs 5225222 aly Je «des ee ale we ale » ғыт. de we 
225524262522 2 > 23242425 2222252 2222525 252052222425 222626226225 2225226 55 
we 

^ 


SORT LE 
ae ” 


Moo UNIT TS USED TO INTERPRET THE USERS REQUEST 
Peet PRP TING ТЕР TAPLYS А5 TM" RESULTS OF THE 
PARSER OBOVE 


oum ЧУ 7 cm 
« 
4. 4 MM 
jc 36 o0 X 
“чө о и et” 


о 


# ) 4 
255252122252525222442А52252222225262226252656212525222572252425 262222765525 252525522225252425252275 262622252525 2526 


иа 


BEDREG = RECORD 


VAR MN. 
ПРЕ АМО 2 INTER 
ЕЕ : REL*TI 
ae Le е КЕК ГО 
БЕЛЕТ ТТ, O 
DATA, 
ANYDATA, 
DEPTDAT?, 
SALDATS , 
AGEDATA 
DART DAT te 
NAMTDATA, 
SKILLPATA, 
МАММОр ТА. 
орат. 
SEXDATA : FILE OF STRING» 


FILE OY INTEGER; 


EEDOEDUPE INTRPRTZ 
ШОРТЕМЕЧТЕТТОЧ 


ТАР BLNX, 
ШЕРІ, 
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N ER 


DNAME ADING 
SFQ SNE S 
SETNO, 


EE O. 
ЭТР ӘКЕП 


TEMPS AA IO SU 
МЕХТ : BOOLFAN: 


D DURE INTRPRTT; 


БЕ A AE a exe oe veste AS E NEDE ES O ac Mena DENE SAH TE RI ad doo da der SK 


RENS PROCHDUF® WILL GIVS ^LL THE TUPLF NUMBERS 
meer THF CONDITION OR QUALIFICATION SIVEN 


tom de y 


SO Oe T ЧИ nt 
M, sé 
ee 


1 ot ‘ de a! t 4 à 1 
ee EHER HERE NE NEE IE NE HE HR Aue He In Zee I eye se qe ve seo see eoe ote soles MENS sie sie ale ote ze ze veste oe 


PROGEDURF CONDITION(RNO,ANO,VAL : INTEGE3; STAT : STATUS; 
LN DS OS LS STRING) | 


Jo: INTTATR: 


DESOCEPUSE GETTUPLENO(FUNC : SYM3OL: 5, B : INTEGER); 


BEGIN 
ШІТРІ, :- 11; 
meme. += 1 TO P DO 
ШЕШЕН FUNC OF 
NS M [F J ІЗ ЕН 


STTEL 556 ЛИРИ NUT LAs) 13 
NOTIN : IF NOT (J IN SET2FC) THEN 
ST TDI 1- Shore TST [seg 


PND; 
mi, (0: GETTUPLENO *) 
BEGIN 
WITH ATTPL[ANO! DO 
BEGIN 
МАМЫ <= CONCAT( “#5: ° ATN)? 
NES ЕТІП, Р :- 517 
END} 
IF NOT NEXT TEEN 
ЕТТІК 


ӘР KIND СЕ 
ieee: BEGIN 
ATSPL (DATA ,DNAMT) § 
ТОО А етнос = |; 
WHILE NOT EQF(D474} DO 
RYGIN 
sn NN 
TOL : IF DATA = VAL THEN 
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STR ES саро ECOL]; 
ПВО o IT DATA <~ yar pany 

ОЕЕО ДЕСНО 1]: 
ЗСТ Ера 

SETPYXC:- SETEEFC-[ÍDAZECNO-1]; 
DEO ти БАТА <= VAL THEN 

SETPEC:=SETREC+[DARECNO+1]; 
ОПЕ IRIDATA > VAL DAN 

SFTRFC:=SFTREC+[DARECNO-+1]; 
GEQ : IF DATA” >= VAL THEN 

STPRES 2 =STTREC+[DARECNO+1L] 3 
INSYM : IF DATA” IN SETNO THEN 

сир о TOO IDAS ECNO+1], 
NOTIN : IF NOT (ATS IN SETNO) THEN 

SETREC = СЕТОЯС + [DARECNO+1] 


9 


(DATA)? DARECNO := DARECNO+1 
UND; 
ТОЗ DATA. LOCK) 
END; 
DIOT : PTCIN 
RESET(STRDATA,DNAME); 
DA We NO 20 27 Cen IS 
WIILE NOT FOTISTRDATA) DO 
RFGIN 
PAS ce eT eee 
а Па оо ра S UOS THAN 
SPTR PCG 2=S “TREC+ [DAR ECNO+1} 3 
NFO 2 IF STEDATA™ <> QUOTS TURY 
SETREC:zsSETREC-[DARECNO-*1] 


ТАТУ 
GET(STADATA)S DARECNC := TARECNO+1 
FND; 
NLOST/STRDATA, LOK) 
END 
END; 


MARS DAT = RTTR) OR (STAT = CHERRY) 
THEN GETTUPLENO(INSYM,A,B) 
WLST SETTPL := SETREC 
END ELSE 
W STT = RETR) CR (STAT » CX*Y) THEN 
А55 ест OF 
INSYM : GETTUPLENC{INSYY, А, E 
NOTIN © 2X*TTUPLENO/NOTIN, 5,7) 
END ELSE 
SUS. FCT OF 
INSTA “ БЕЛТРІ “- о ти“. 
NOTIN : BEGIN 
Sue ш 
TOR J := 1 TO MAXTPL DO 
IF NOT (J IN SETEEC) TEEN 
SPTTPL += SPTTPL + |11 
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= 
4 P TS % 
е КАТ; TEMPS [X% танат 
Е а е 
МО? 
~ t ~ t ts m т > ~ t - - - of ъ ~ ~ ~ ~ 
ЕЕЕ ЕЕ 2 2225222255525255255222262552:-222232222222 552263255222 00022252122 2222 22 25 262 3225 22 


тез 


м с Сена Че” Си? Че” ча ГГ” 


ISP OCTDUFY GIVES TEE RECORD NUMRTRIS) OF THE 
ERISUDSED ATT2IBUTZ(S) WHICH MEET THE GIVEN CONDITION 
ШЕН 555/175 WILL PASS TO THE NEXT SEQUENCE ( SEE 
SFOUENCF AND RYTERENCE TABLES ) OR BE PRINTED OUT 


fae te ig 


г 
d Cue 


me ey Nm u Чи, 


4to3t dt dto 


RARA RN IIA AR IS BIS TIC SE TIS IE IE NG ET BI OK NE ER STIS NE TI SIS SS BI OE IS OS OI RAIL A 


PEOCEDUFE QUERY/END,ANO: INTTEFR); 
VRE J : INTEGS2; 


PPOCEDUSE ZELATE1: (* VIND IN RTLATION NO. 1 *) 
BEGIN 
R*STT/T^TLT,BNAMT); 
ШЕ ӘҰТТРТ - []) AND (1 = TOP) THEN 
EU WRITELN(^Not ?ound/): EXIT'/INT2PR*T) END 
ALS E 
FOR J := 1 TO MAXTPL DO 
Тт ү] IN SPTTPLY AND (NOT FOF{TARLE)) THEN 
BEGIN 
SrrTY(T5?LT,J-1); 
[ED TABERNYV, 
Дре тате DO 
REGIN 
DOS NOAA (TABLE) THEN 
Ee I DOS REO 
BEGIN 
бгтк(цамттата,Мамғ-13; 
SET{NAMEDATA)S 
L :- LENGTH(N*MEDAT?^); 
STR = CONCATÍNAMEDATAS, 
COPY/PLNK,1,2%-L)); 
WRITE(STR) 
END PLSE SETPEC:= SETEEC+ [NAME] : 
1a (2 ИМА ТР ПО DN wer (TASLE)) THEN 
IF I = TOP TUN 
BEGIN 
SEEZIDFDTDATA,DEPT-1); 
AFPIDTDPNATA)S WRITE DEPTDATA" : 4) 
FND FLSE SET2EC:= SSTREC+ [DEPT]; 
IP (3 IN ATTS) AND (NOT ECF(TABLE)) THEN 
IF I = TOP THN 
BEGIN 
SFEK(SXILLDATA,SEKILL-1): 
Cun SKILIDATA); И 
I t= LONGT ECS ILE DATs’ Y; 
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ооо 


МЕ ТОС 
EAD pee ТЕС = Баррас: [SKILL]: 
те (4 Па А та AND (NOT BOW! TABLS)) THEN 
DM po SE 
REGIN 
SEEK (S4AL DITA SAL=1); 
GYTÍSATDATÀA): WRITF/SALDATA" : 6) 
END ELSE SFTREC:+= SETREC+ [541]: 
IE (SIN ATTAN NOT nen re 
IF I = TOP TU*N 
BEGIN 
SEEX/MENNODATA,MANNO-1); 
СЕТ ANNONA TAN NEE EN « ^ MANNODATA^) 
END ТІ57 57ТВ97С0:- SITRESC+ [MANNO] 
END; 
IF I = TOP TIEN WRITTIN 
Е 


^ 


CIN K :9 K-1; TYMPS[K] :9 STTR?TC END; 


ND; 

IF I <> TOP TEEN 
y 
(TABLE.LOCK) 


PROCEDURE RELATE2;3 (% FIND IN SEL*TTON NO. 2 *) 
PTGIN 
RESTT¿CHDTRL,RNAME); 
ии сеттрт, = fl) AND {I = Top) 
TUSIN WRITTLN( “Not found’); 
7157 
TOR J := 1 TO MAXTP 
fee J IN SETTPL) 
DTATN 
SERRE EDITUM ty She ОТЕ 
WITH CHDT3% ро 
BEGIN 
IF ‘6 IN ATTS) AND (NOT EOFÍCHDT3L)) TZ*NWN 
ТЕ I = ТОР THEN 
BEGIN 
STFK(NAMEDATA,NAMP-1);5 
СҰТИ/ЧАМЕПАТА); 
L :- LYNGTH(N&MED!TA ); 
STR := CONCAT/NAMZDATA' , 
CODY RLNE.1,24—DL))5 


(INTZP3ET) END 


L DO 
АМТ 


(NOT EOT(CHDTBL)) THEN 


WRITEF(STP 
TND FLSE S? 
IER ITN ATTS.) 
IF I = TOP TH 
REGIN 
SEEX(CEDD^T:,CEN1M?-1); 
CED СЕТОАТА); _ 
L := LENGTE(CEDDATA” ); 


E 
ND (NOT #0 STE 


) 
TEEC:- SFTERC+ [NAME!: 
А e 
*N 
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STA NON ODE TAS 


OA d 


WRITS STR) 

БАУУ КОСЕ ЕТО. сут (С 

ГА ТЫ 1775) ANDINO 
IV I - ТОР TU*N 

REGIN 
SEAS греша SEXI: 
СЕТ SPYDATA): 
L <= LENGTE(S7 
УН = CONC AT 
WEITE (STR) 


| 


~ i} | x] 


трата" 


” 


>» 


ЕИО SK |, 


ШЕ С ATTS оо On On CHD? 


mu T погине 
BEGIN 
SPPE (Ag THATA ,AGT-1)3 
SOT AG оре рали 
MIT um DN) 


в 
3L 


)) 


ENDE LS ES TIAS AGE) 


ЕМІ; 
Т® Т = 700 ТЕРІ WRITTIN 
*NDj 
IF I <> TO? TREN 
БЕЛІН E p= 1; Tavs i IMMO v6 END 
mmose  CADTPL. LOCK) 
GIN (= QUTRY *) 
BIT = TOP TETN WRIT*IN: 
Mie iN ATTS TERN 
BEGIN PESST(NAMEN STA, (eS eV AME”); 
I? I = TCP TEEN WRITE” NAME 


Ше IN о ГО ЕМ 


ВЧТ Т ТЕРТГАТЬА Ерера, 
IF I = TOP TREN M ITa Den END: 


MES IN ATTS THEN 
БЕСІМ STSET(SKIDLD'TS sS S PEDE 
Юн І - TOS TEEN РТТ SKILL 
feet IN ATTS ТЕЗИ 


-- 


БЕСІГІ БЕЗЕТ(ЗАТТАРА, 85254); 


КЕТ = TOP THU Ме акы ТҮ ғыр; 


INEO IN ATTS TEEN 
Mealy PESETIMINNODA TA, EEMANNOS): 


7 IT = TC? TEEN WRITE(” MANNO 7) 
I" £ IN ATTS TUN 
СООТ RISETÍNAMEDA TA, "ES: MAME); 


І = ТОР TEN WRITT(” AMT 
ШІСІ ІҢ ATTS THRN 
БЕС пъстт(счпрата „ез пимеме а 
IF I = TOP THEN WTITEL 7 CHNAME 
IF а IN ATTS THEN 
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25195 


I E EMI 
EN 


tJ 


^) END; 


= | те 
) SND 


др ик ара 





EN c IN 1775 TEF 
ERE зъсотр(астрата "sceanv^Ys 
Nur - 59» THEN WRI?TE( 5257) ENDS 
АНТТУ ТА, Добре ре 
ИЕ = CONCAT( #5: ° PELTRL[2NO] .NAMED); 
ЕНЕ := ^ E E 


солов ЧО OF 
КЫ ЗАҢ ЕТЕТ; 
eee in Lac 


END: 
mae IN sTTS TU?N ü^LOSEPÍN5MT^OATS, Ше 
ШЕР IY 21775 ТПЕМ CLOSH(DFPTDAT*.LOCZ); 
AE TS TETN CLOSTISKEILLOUATA, LOCK); 
IF 4 IN ATTS THEN CLOST(SALDATA, LOCK); 
fees TN ATTS TEEN CLOSE(MINNODAT a LOCE); 
Ж ИЕ ІН ATTS THEN СЪОЗ:(Мамтпата ТОК): 
mee? IN ATTS TEEN CLCSZ/CEDDATA, LOCX): 
ТМ 8TTS TREN СТОЗЕ! сигрета ТОГК):! 
ШО ТЧ ATTS TPZN CLOSFÜBGEDSTA ТОСЕК) 
END; 


СРИИ: 
ДО ол пере TND 
TIL 


| X FROM #) 
57 RYLATIONSETPS 


~ 
ч 
amd 

! 
T nt 
— 


ПИТА DTL'A.3,.C * INTEGERS 
f 
\ “ 


Ig 
t4) UJ 
E E d 
j 
3:3 wr 
Е 


О 
t ae 


ШЕР =: INTETT; 
ETRTN 
ENT ANY3TL,D); 
fers, (C+4} <= INT 
ANYRTL . STTNO 
STEK'ANYRZL,A 
Mees’ ANYR7L 
END; (% DELTT 


EENDUPUPT PUTS(4A.t,.* ©» INTEGER? ^ : STRINGS): 
* DUT THE ASSOCT2TED INDEX IN TEE *) 
RTLATIONSHI?PS FILE = 
ШЕН Рр. INTFCER: 
BEGIN 
DES ET (¿NYPEL.D): 
ща ат | све! 1 ГУУТРЪ|ГаА| + [8]: 
ANY?EL „5ЕТЧО 15 INVTBLÍ[C+A!;5 
ШЕГЕ | ONYR TY, 2-1); PUTCANYRFL): 
ПИРС ANY2EL, LOCK) 
EE (* PUTS *) 


EEOCEDUSR SETRELÍRNC,^NO,I : INTEGVP)i VOFWAZD; 
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NOTES INDEX NUMBER 


ome nee DS SIR AE 2S BIS SEE SIS SS BIS BS SI AE BIT NE SINE AE BY BS SS NE SIE Ц Ез sie ole NENE ООО IE ) 
( зе 25 \ 
На SPLAT IONS I 25 О Se ж) 

ж) 

se \ 

ж) 


Є 
..... Yo ate ale ate we ale ale ale at. fo ate at 
( 52552556 222552252225 222522225021252456252250 209525 22202205 265026525220 2525525225 56252550 52522525 525252222205 5500 


v! 


(ара UPDATZS'VAL,3NO,^NO,T : INT 
SUOTMSEm ST OFJ 
EUN I. J, V : INT"5CTP; 
3EGIN 
MENO? NEXT TEEN 
RESIN 
DARECNO := 2; 
C:!:SE ORJ OF 
NPR : PPGIN 
22SET(ANYDSTA, FNAME) 5 
A = wee ІНГІ 5- 
ELSE Я РЕШО ЕИ er но 
DAPPCNO ADO NOS 
ОИ А ү) О 
LEQUCANYDATAO); 
IE NOT BORON yi eee t= PONO I 
ELSE PEGIN 
URTO meme Гу ^зе Тпеетъ?”): 
EXIT “INTRPRET) 
END; 


а та 
san 
Ф 

Ф 


С 
SYMSCL 


г1053 (чурат, ток) 
END; 
2007 : 32919 
R*S*TSTRP!TA.TPNAMT!; 
17 STRDATA” = QUOTS TEEN 1 := DIRECNO+1 
PLST R?PTAT GYT/STRDITA); 


DARECNO := DAEECNO-1 
ПИТТ SIRA E JOTS) Oa 
СОКО 0): 
17 NOT FOT'STRDAT5) TREN I :=DARECNO+1 
TLSE PEGIN 
WRITTLN( “No such entry found. Insert?'); 
AA A 
END; 
GCLOSE(ST=2 D414 OC 
PNT 
END; 
END ELSE 
КОО = 1 TO MIXTOL ГО 
mpeg IN SERI=C TEEN I <= J; 
ӨЗТРТТ(РМО,4М0.1): 
ІР? 7 - TOP TEEN WRITELY. Uplating is dore”) 
pi 


TN 'ж Џрпђатт *) 
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РЕШШ” 5-ТЕТТ; 


BEGIN 
CAS" RNO O7 
] : 322IN 
PESTT/TABLT,2N5ME); 


МІЛЗ 'TTPLÍ5NO! n0 
BRSIN 
SEIEN SM Зекет атыу? 
PE ADDR 
745: 
Ку l TONIT? ВО 
MATES EI А NOT EC 
27713 
SEX (TABLE MED СИРАТ ЗІ; 
WIDE "auTO 
anne а 
e Mee, 
2 * ЕТПІК 


taj 


ЛЕЕНЕ 


ШЕН УӘ саи): 
ТЕРТ s= I: PUTS:DTPT,J,X ,RELNAME) 
END; 


з BEGIN 
а 


N, 1КЬЧАМЕ); 
SKILL <= Г; 


ШЕТІ МАЕ) 


UND: 
4 PERIN 
Dore c MM NE OPNS S 
ӘНІН ESAS и РАМЕ) 
IND; 
Sa ÓN 
A AA O OUIASMS); 
МЛЫМО :- ТУ PUPS MINNO. JJ, EL NAME) 
ENT 
o 
SPK TART a еј PUE TAFET.) 
FNT3 
Chest TAB Le. LOG 


ҰМ); 
2 : BEGIN 
Вб ЕСН ОВЕ, сон 
WITE аттът |в ко? DO 
BEGIN 
ПРИМЕ = СОМ TN 
K <= ADDR 
END; 
Dos q ssl PORNO 
ST TIOS ГОТ!) ІН 
ВЕСИ 
О А ШІРІ, 1-10); СНОО: 
WITY счптъгт 7 NO 
CASE ANO CF 
вс REGIN 
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DEIA лм 
И ШТА АРОН и ОМ МЕ) 
• 


DEL! СИЕ Де NA Ди 


ЭРХ = І: PUTS'SEX,J,K , 4ELNAMS 
END; 


Boc NUN 


M" 


ІІІ (АСЕ рак OLAS 
A A NAME) 
ҰМ? 
TNES 
SuEKUCHEDISDL.I-1 4 POPUCHEDISD) 
END; 
OSE CETEL, LOC) 
УМЕ 
END 
Бр: STREL- X) 
Be ^* INTBRP?ET *) 
ЕТ з= 51757; 
ЕЕ 23: JJ := 2) К := 9. 
eee“ AT 
ПИ ї-1: 570 := 570Т7ТР1[1): 
feos SHO OF 
COND ГЕ 


СІМ (% IDENTIFY TES 
П ИИ осоо 
WITZ INS DO 


— E 
m "xj 
t4 

e) 

"> 

-3 

I-A 

O 
~~ d 


оо оО ОЕ 
GRJ- e= ATTE ANO KIND; 
ТЕ 087 = NBR THN | 
CONDIT PTON CNO о Уб от ас ОВ.) 
FLSF 
CONDITION PNO ANO: ст ЕСТ,.0В87,99075) 
END 
TND; 
түсүм.» BEGIN (* INQUIRIÍ *) 
Sum ОВА ет ЈЕ 
МІТН РТТТТІГЛІ 70 
EMO rN At PSs OUPSVOCXNO.8NOJ) END 


ҰМТ); 
SETSYM : JEGÍN (= UPDATE ж) 
обр преби Ст порок БОЦЕ Tet, 
ПАО ек етер но 
ITET TASE O 
REGIN 





aU SIM 


ANDSYM : 


BUD 


END 
MTS Т = TO? 
ИР ТМТОРЧЕТ 


END. 


(за 
\ 


ШИНА ek Tap M 


RN AME 


:= CONCATE = RENO a ven), 
O A o аСТ AN); 
O Оро стаи 
СЕЕ = Aa KIND: 


IP OPJ = NPR TITN 

UPDATT(VAL,RNO 

NBR,ST) 

ELSE UPDATE(C.RNO,ANO,I,-2N53ME,TNAME, 
ACOA AJOT. ST) 


qoc NAS, ° 


id 
POIN K = KE ( OR ж) 
| T?MPS [E] SS A A 
UNT: 


PEGIN TKE се к=]; 
Du PSI M о 


с ара О Тс ОШ E NEIT STEP) 
TEMPS 5 :- 5-1; 
ШІ 


wa 
- ye 


4 (177 





4 * ~ 1, t е. ' m - - - 
ЕЕЕ ЕЕЕ ЕЕ ЕЕЕ ЕСЕ ЕСУ AAC A INR NR NENE EA E E NE Е EA 
ale we 
AS ^ 


iod 


Зе 3: 


ша иго TAS MAIN PROCGESM OY TUS MIC>ODITLRAST SYSTEM. 
E FOUR UNITS ( CREATE, PERSER. INTESPAETEZ, HELD 
Ш ОБУ TAE TARSE FUNFTIONS OF TEIS SYSTEM, TEE THREE 
MMS TTONS ART 2 1. DATS BASS INITIALIZATION 

A DATS AS MANTIS ULATION 

Оз HEDPSPSUNCTION 


a me eee 
г 
A ос 
e АР a ua a М0 Ми М a nt 


de 2 36 3t Gb 


to 
део КЖ дезе Жез a jee ee ae cae ae ae ee e eae a ae a ae abe ae he abe ae ait acai ae ae ae ea a ce 


ae 
ae 


Баш MICRODATS;: 
ШЕРІ 555, ІЗТЕСӘОЗЕТЕЗ, CREATE, HELPS, 
ШЕ (5 : СНАЗ; 


PEGIN 
Peer X. CONSOLT: “)3: WRITTIN: 
W2ITELN( “MICO DATA BASE SYSTEM’); WERITELNS 
WRITT( “Command : Clreate. Xfecute, ='е12 ->”); 
READ!ÍX.CEY: 
МИ = 1 TO 2 DO WRITELN: 
CAST СОЕ 
С GREATES: (+ DITA BAST INITIALIZATION >) 
ең“ e: FTL? УН Ора Стам S 
E PUGIN (ж DATA RAST MANIPULATION 27 
ПЫЛРГАПТ ОРН РАНЕ 
NM IS LS OS 
МЕНЕЕ NOT swoon’ kK) DO 
PTGIN 
SCANNERS 
STATEMENT; 
СЕ ПОВ) и = PRD) THEN INT? PRET 
END 
"ND 


i* 
0 LA 


END 
SND. (* MICRODATS *) 


Aro 
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